library(shiny)

shinyServer(
  function(input, output){
    output$myhist <- renderPlot({
      colm <- as.numeric(input$vairable)
      hist(iris[,colm],breaks= seq(0, max(iris[,colm], l = input$BINs+1)))
    })

})